home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
twmac100.zip
/
TWMAC100.MAC
next >
Wrap
Text File
|
1992-08-10
|
7KB
|
105 lines
{:nf7}{setv sct}{setv not}{inpu file,Use which Notepad file?}{inpu sct,Note on which sector?}{inpu not,Enter note now...}{wopen-a %file}{setv wrt,%sct% -> %not}{write %wrt}{write}{wclo %file}{}
{:sf7}{rope %file,quit}{:loop2}{read nextline}{display ,,,%nextline%|^j}{goto loop2}{}
{:quit}{}
{:nf8}{setv mes}{:name}{inpu name,Message to whom?}{send c}{:mes}{inpu mes,Enter message now (60 character max)}{look Computer comm}{send s}{look Name) -}{send %name%|}{golo wname,Trader!}
{look an %name%?}{send y}{send %mes%|}{look mission sent}{look er command}{send q}{}
{:wname}{send q}{}
****END MARCIN****
╔════════════════════════════════════════════════════════════════════════════╗ upproto
║ ║
║ ┌──────────────────────┐ ║
║ │ Upload Protocol Menu │ ║
║ └──────────────────────┘ ║
║ ║
║ ║
║ IMPORTANT: Be sure you have installed the indicated program ║
║ before you try to use any external protocol. ║
║ ║
║ Zmodem batch using DSZ.COM ║ {goto pzbs}{:pgu} {macro upproto}
║ Xmodem-1K (old Ymodem) Internal ║ {goto px1s}
║ Xmodem Internal ║ {goto px2s}
║ ║
║ Ymodem batch using DSZ.COM ║ {goto pybs}
║ Ymodem-G batch using DSZ.COM ║ {goto pygs}
║ MPt batch using MPT.EXE ║ {goto pmps}
║ CompuServe B, B+ using OZBEXT.EXE ║ {goto pcbs}
║ ║
║ ║
╚════════════════════════════════════════════════════════════════════════════╝
╔════════════════════════════════════════════════════════════════════════════╗ dnproto
║ ║
║ ┌────────────────────────┐ ║
║ │ Download Protocol Menu │ ║
║ └────────────────────────┘ ║
║ ║
║ ║
║ IMPORTANT: Be sure you have installed the indicated program ║
║ before you try to use any external protocol. ║
║ ║
║ ║
║ Zmodem batch using DSZ.COM ║ {goto pzbr} {:pgd} {macro dnproto}
║ Xmodem CRC (or 1k/old Ymodem) Internal ║ {goto px1r}
║ Xmodem csum Internal ║ {goto px2r}
║ ║
║ Ymodem batch using DSZ.COM ║ {goto pybr}
║ Ymodem-G batch using DSZ.COM ║ {goto pygr}
║ MPt batch using MPT.EXE ║ {goto pmpr}
║ CompuServe B, B+ using OZBEXT.EXE ║ {goto pcbr}
║ ║
║ ║
╚════════════════════════════════════════════════════════════════════════════╝
Macros used for DOWNLOADING (receiving) Program required
─────────────────────────────────────────────────────────────────────────────
X CRC {:px1r} {call gfnd} {rxmo %file} {}
X csum {:px2r} {call gfnd} {rxmo-c0 %file} {}
Z batch {:zmodem} {:pzbr} {exec DSZ port %_por rz -mr %dldir} {} DSZ.COM
Y batch {:pybr} {exec DSZ port %_por rb %dldir\} {} DSZ.COM
Y-G {:pygr} {exec DSZ port %_por rb -g %dldir\} {} DSZ.COM
MPt {:mpt} {:pmpr} {exec MPT P%_por S%_spe r %dldir\} {} MPT.EXE
CIS BPlus {:pcbr} {exec OZBEXT /c%_por /f%dldir /n} {} OZBEXT.EXE
{:gfnd} {setv file,%dldir\} {input file,Enter a filename to DOWNLOAD}
{ifex %file,,gf_y} {input %yn,File exists, overwrite? [Y/n]}
{comp yn} {ifco gf_y} {comp yn,y} {ifco gf_y} {}
{:gf_y} {return}
Macros used for UPLOADING (sending) Program required
─────────────────────────────────────────────────────────────────────────────
X-1K {:px1s} {call gfnu} {sxmo-k %file} {}
X {:px2s} {call gfnu} {sxmo %file} {}
Z batch {:pzbs} {call gfnu} {exec DSZ port %_por sz -mr %file} {} DSZ.COM
Y batch {:pybs} {call gfnu} {exec DSZ port %_por sb -k %file} {} DSZ.COM
Y-G {:pygs} {call gfnu} {exec DSZ port %_por sb -g -k %file} {} DSZ.COM
MPt {:pmps} {call gfnu} {exec MPT P%_por S%_spe s %file} {} MPT.EXE
CIS BPlus {:pcbs} {exec OZBEXT /c%_por /f%uldir /n} {} OZBEXT.EXE
{:gfnu} {setv file,%uldir\} {input file,Enter a filename to UPLOAD} {return}
Macro Key Function
────────────────────────────────────────────────────────────────────────────
{:hom} {send ^W} {} Home Start of line
{:end} {send ^P} {} End End of line
{:pgu} {send ^R} {} PgUp Page up
{:pgd} {send ^C} {} PgDn Page down
{:upa} {send ^E} {} Up Arrow Cursor up
{:dna} {send ^X} {} Down Arrow Cursor down
{:lfa} {send ^S} {} Left Arrow Cursor left
{:rta} {send ^D} {} Right Arrow Cursor right
{:cla} {send ^A} {} ^Left Arrow Word left
{:cra} {send ^F} {} ^Right Arrow Word right
{:ins} {send ^V} {} Insert Toggle insert mode
{:del} {send ^G} {} Delete Delete character
{:cnd} {send ^K} {} ^End Delete to end of line